File #1: TwoSquare:MPW:Scripts:SetDirectory
File #2: MPW2:Scripts:SetDirectory

Nonmatching lines (File "TwoSquare:MPW:Scripts:SetDirectory"; Line 12:22; File "MPW2:Scripts:SetDirectory"; Line 12:14)
  12	#
  13	#  Modified by LDO 1989 March 8 to change text of first
  14	#  item in Directory menu to track current directory.
  15	#  Modified by LDO 1989 May 26 to avoid interpretation of
  16	#  special characters in text of menu items.
  17	#  Modified by LDO 1989 July 7 to avoid creation of duplicate
  18	#  menu items.
  19	#
  20	
  21	Set Exit 0
  22	If {#} != 1  or  "{1}" == ""

  12	
  13	Set Exit 0
  14	If {#} != 1  OR  "{1}" == ""


Nonmatching lines (File "TwoSquare:MPW:Scripts:SetDirectory"; Line 29:43; File "MPW2:Scripts:SetDirectory"; Line 21:24)
  29	   If `FindMenuItem Directory "{Directory}"` == 0
  30	#     Note: AddMenu checks for an existing menu item with the specified
  31	#     text before adding a new one. For this reason, I must change item
  32	#     1 of the Directory menu to something that isn't going to match the
  33	#     new current directory *before* calling AddMenu, and change it to the
  34	#     new directory afterwards.
  35	      SetMenu Directory 1 'Show Directory'
  36	      AddMenu Directory "New Directory" ¶
  37	         '(Directory "'"{directory}"'"; SetMenu Directory 1 "'"{directory}"'") ¶
  38	            > "{ShellDirectory}"MPW.Errors ³ Dev:StdOut ¶
  39	            || Alert < "{ShellDirectory}"MPW.Errors'
  40	      SetMenu Directory `FindMenuItem Directory "New Directory"` "{Directory}"
  41	   End # If
  42	   SetMenu Directory 1 "{Directory}"
  43	End # If

  21	   AddMenu Directory "{directory}" ¶
  22	      'Directory "'"{directory}"'" > "{ShellDirectory}"MPW.Errors ³ Dev:StdOut ¶
  23	        || Alert < "{ShellDirectory}"MPW.Errors'
  24	End

*** EOF on both files ***